home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / drcpas10.zip / ABSIO.PAS < prev    next >
Pascal/Delphi Source File  |  1992-11-17  |  833b  |  35 lines
  1. {$A+,B-,D-,E-,F-,I+,L-,N-,O-,R-,S+,V-}
  2. unit absio;
  3.  
  4. interface
  5.  
  6. var
  7.   (* used by assem. routines *)
  8.   dosver,
  9.   abserror : word;
  10.  
  11. (* this should be self explanatory.  A: = 0 *)
  12. (* thanks to Ralf Brown for description of Int 25h/26h interface,
  13.    which is quoted in absdisk.asm *)
  14.  
  15. procedure absread (drive : byte; sector : longint;
  16.                    numsecs : word; var buffer);
  17. procedure abswrite (drive : byte; sector : longint;
  18.                     numsecs : word; var buffer);
  19.  
  20. implementation
  21.  
  22. uses dos;
  23.  
  24. procedure absread (drive : byte; sector : longint;
  25.                    numsecs : word; var buffer); external;
  26. procedure abswrite (drive : byte; sector : longint;
  27.                     numsecs : word; var buffer); external;
  28.  
  29. {$L absdisk.obj}
  30.  
  31. begin
  32.   abserror := 0;
  33.   dosver := dosversion;
  34. end.
  35.